home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qlib54.zip / MENU.BAS < prev    next >
BASIC Source File  |  1992-04-24  |  2KB  |  77 lines
  1. DEFINT A-Z
  2. DECLARE FUNCTION gPullDown (a%, b%, c%)
  3.         DIM a$(25)
  4.         LOCATE 2, 2
  5.         FOR i = 0 TO 25: READ a$(i): NEXT
  6. REM  first main heading
  7.         DATA "Critters"
  8.         DATA "Hawks"
  9.         DATA "Marmots"
  10.         DATA "Pygmy Tundra Buffalo"
  11.         DATA "Collared Pika"
  12.         DATA "Swine"
  13. REM  NUL string separates main headings
  14.         DATA ""          
  15. REM 2nd main heading
  16.         DATA "Habitats"
  17.         DATA "Alpine tundra"
  18.         DATA "Forest edges"
  19.         DATA "Pelagic"
  20.         DATA "Urban"
  21.         DATA ""
  22.         DATA "Nothing"
  23.         DATA ""
  24.         DATA "Vegetation"
  25.         DATA "Deciduous forest"
  26.         DATA "Cattail marsh"
  27.         DATA "Dense brush"
  28.         DATA "Moss and Lichens"
  29.         DATA "Sagebrush"
  30.         DATA "Chapparal"
  31.         DATA "Prarie"
  32.         DATA "Temparate Rain Forest"
  33. REM  double NUL strings mark end
  34.         DATA "",""     
  35.         CALL MenuOPtion(0, 23)        ' text color
  36.         CALL MenuOPtion(1, 30)        ' menu choice color
  37.         CALL MenuOPtion(2, 31)        ' menu box color
  38.         CALL MenuOPtion(4, 256 + 68)  ' optional exit key
  39.         CALL MenuOPtion(5, -1)        ' exit menu when hotkey pressed
  40.         SCREEN 12
  41.         CALL svga256(1)
  42.         FOR i = 0 TO 100
  43.         e = RND * 500
  44.         j = RND * 500
  45.         k = RND * 500
  46.         CALL GraphColor(i)
  47.         CALL DrawLine(e, i, j, k, 1)
  48.         NEXT i
  49.         CALL MenuOPtion(0, 10)
  50.         CALL MenuOPtion(1, 12)
  51.         CALL MenuOPtion(2, 15)
  52.         CALL MenuOPtion(3, 13)
  53.         main = 0: subm = -1
  54.         a = VARPTR(a$(0))
  55.         a = gPullDown(a, main, subm)
  56.         CALL getkey
  57.         SELECT CASE a
  58.                 CASE 13
  59.                 key$ = "Enter"
  60.                 CASE 27
  61.                 key$ = "Escape"
  62.                 CASE ELSE
  63.         END SELECT
  64.         SELECT CASE main
  65.                 CASE 0
  66.                         main$ = "Critters"
  67.                 CASE 1
  68.                         main$ = "habitats"
  69.                 CASE 2
  70.                         main$ = "nothing"
  71.                 CASE 3
  72.                         main$ = "Vegetation"
  73.         END SELECT
  74.         SCREEN 0
  75.         PRINT key$, main$, subm
  76.  
  77.